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PREFACE 


This  is  the  first  in  a  series  of  technical  notes  on  the 
utilization  of  the  computer  facilities  at  Letterman  Army  Institute  of 
Research  to  assist  in  mutagenicity  testing  as  part  of  the  Institute's 
toxicology  program.  These  reports  will  detail  the  use  of  the  computer 
in  labelling  articles,  recording,  storing  and  retrieving  data,  and 
data  analysis.  Both  the  Salmonella  mutagenicity  and  the  Drosophila 
melanogaster  sex- linked  recessive  lethal  mutagenicity  assays  will  be 
covered. 
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COMPUTER-ASSISTED  LABELLING  IN  MUTAGENICITY  TESTING 

I.  The  Drosophila  Melanogaster  Sex-Linked  Recessive  Lethal  Assay 


The  tnu'^agenlci^y  testing  of  materials  in  compliance  wi*:h  Federal 
regulations  (1)  requires  ^he  impl emen'*'a'*’ion  of  an  ex't'ensive  labelling 
system  which  mus*  be  integrated  wi^h  data  collection,  storage,  data 
retrieval  and  analysis.  The  Drosophila  melanogaster  sex-l'nked 
recessive  lethal  assay  is  an  often  used  mutagenicity  test  which 
requires  the  unique  numbering  of  the  test  flies  and  their  progeny, 
dilutions  of  test  and  control  materials,  and  their  multiple 
replicates.  The  detect’ on  of  tes+  materials  wi+h  low  mutagenic 
activity  requires  the  concurrent  testing  of  7,000-10,000 
X- chromosomes ,  depending  on  the  spontaneous  mutation  frequency  oi'  tlie 
stock  colonies  (2,3).  from  both  negative  control  and  test  material 
treated  flies.  Due  to  space  and  personnel  limitations,  we  currently 
divide  the  testing  of  a  single  compound  into  four  runs  of 
approximately  2,300'  X- chromosomes  each  for  the  negative  control  and 
test  material  treated  flies  as  well  as  500  X- chromosomes  from  positive 
control  treated  flies  (4).  This  requires  the  generation  of  880 
unique,  sequential  labels  and  brood  cards  for  tgg-^-i^ng  a  single 
compound.  These  items  are  currently  hand  labelled  in  most 
laboratories.  We  have  designed  and  implemented  a  FORTRAN  V  program 
for  the  rapid  generation  of  the  large  numbers  of  uniquely  ident-'f^ed 
labels  and  cards.  The  use  of  this  system  has  greatly  reduced  t}ie  time 
spent  generating  these  materials,  eliminated  errors  in  number-' ng,  and 
ensured  continuity  from  the  -'nitat-ion  to  the  termination  of  the  assay. 

PROGRAM  DESCRIPTION 

The  program  (See  Appendix  A  -  SLRLABELS.FR)  generates  the  labels 
and  cards  for  the  ■‘nhividual  male  flies  that  will  be  exposed  +0 
negative  control,  positive  control,  and  tes*  compounds. 

As  seen  from  the  sample  run  (Figure  l),  the  program  di  sj’ lay:-.  the 
following  information  (the  underlined  characters  were  entered  at  t),e. 
time  of  the  program  execution  by  the  user):  The  number  of  the  last 
run  for  which  labels  and  cards  were  prepared  and  the  sequence  numbei- 
of  the  last  male  fly  for  which  labels  and  cards  were  genei'ated. 

As  can  also  be  seen  in  the  sample  run  (Figure  l)  and  the  sample 
labels  and  cards  (Figures  2-5),  the  identification  number  of  the  inalcs 
is  composed  of  two  fields:  the  first  designates  the  nature  ol'  the 
compound  (C  -  negative  control,  P  -  positive  control,  and  T  -  tjjp. 
compound)  and  wh^ch  of  the  series  of  rompounds  it  ^  hy  an  tntegfr- 
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desi.gna*'or  from  1  +0  '3-  In  •*:he  case  of  test  substances,  a  repetition 
number  :  f:  a  lso  pr-nted.  The  second  field  of  the  male  identification 
’s  the  Integer  sequence  number  of  the  fly. 

The  program  requests  the  following  information  from  the  user 
(refer  ♦'o  Figure  I): 

•  The  initial  sequence  number  to  be  used  for  the  flies  of  this  run. 

•The  maximum  sequence  number  to  be  used  for  the  flies  of  this  run. 
If  tj-ie  maximum  sequence  number,  minus  the  minimum  sequence  number,  is 
greater  *han  100,  ^hen  ^he  user  must  re-enter  both  values.  This 
f(;a‘'ure  is  utilized  because  experience  has  shown  that  25  is  a 
reasonable  practical  limit  for  setting  up  the  assay  in  our  laboratory. 

•  The  new  iTun  number. 

•  The  number  of  negative  control  compounds  (a  maximum  of  five  is 
allowed)  for  which  labels  and  cards  are  to  be  prepared  to  permit  the 
concurrent  testing  of  several  control  compounds. 

•  The  codes  for  each  of  the  negative  control  compounds.  The  user 
■'s  allowed  up  to  six  characters  of  any  type  for  the  designation  of 
each  compound. 

•  The  number  of  positive  control  compounds  (a  maximum  of  five  is 
allowed)  for  which  labels  and  cards  are  to  be  prepared. 

•The  max'* mum  sequence  number  for  the  positive  control  compounds 
(usually,  ti,(^(>£,  ig  go  need  for  as  many  flies  tQ  be  exposed  to  the 
po:!'t'v<’  control  as  to  ♦•he  negative  control  and  tes*  compounds). 

•The  codes  for  the  positive  control  compounds.  The  user  is 
•illoweri  \ip  tQ  six  characters  of  any  type  for  the  designation  of  each 
compoiind . 


•The  number  of  test  compounds  (a  maximum  of  five  is  allowed). 

•  I'he  codes  for  the  test  compounds.  Again,  the  user  is  allowed  up 
'O'  sex  >’har-.iri  ers  of  any  type  for  the  designation  of  each  compound. 

•  Tiie  ffipe''tiQg  number  for  each  test  compound.  As  is  illustrated 
•n  K'g'ir.;  1  ,  no  number  greater  than  99  is  allowed . 

•The  d’lteu  for  each  of  the  four  broods. 

A;;  tji,-.  iext  for  the  labels  and  cards  is  generated  by  brood,  a 
ni’ usage  ’s  d' !’.p layed  at  the  user’s  terminal  to  indicate  what  has  been 
prepared  and  the  files  n  which  they  are  stored. 
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After  the  text  for  all  the  labels  and  cards  have  been  placed  in 
the  files  DLABELS  and  BOARDS,  the  user  is  so  notified  and  may  print 
the  labels  and  cards  out  on  an  appropriate  device  (usually  a  printer 
with  a  tractor  feed).  The  program  is  formatted  so  that  the  Labels  and 
cards  should  be  printed  on  continuous- feed  single- width  stock 
material.  These  may  be  obtained  from  MISCO,  936  Holmdel  Keyport  Road, 
Box  599,  Holmdel,  N.J.  07733,  or  other  distributor  of  computer 
related  items.  The  labels  are  the  standard  1  X  3-5  inches  and  the 
cards  are  standard  3x5  inches. 

All  cards  and  labels  are  generated  so  that  they  are  uniquely 
identified  and  parallel  one  another.  They  are  prepared  in  the 
sequence  in  which  they  will  be  used.  The  cards  provide  permanent 
records  and  greatly  facilitate  data  entry  into  permanent  data  files  on 
the  computer. 

DISCUSSION 

By  utilizing  the  program  and  subroutines  presented  in  the  repor* 
we  have  realized  a  significant  savings  in  time  for  the  preparation  of 
materials  for  the  Drosophila  melanogaster  sex- linked  recessive  lethal 
mutagenicity  assay.  The  labels  and  cards  have  also  been  of  great  help 
in  maintaining  order  and  uniformity  while  running  this  assay. 

CONCLUSION 

None. 

RECOMMENDATION 
None . 
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)  X  SLRLAHELS 


SLKL-DEOSOPHILA  LABELii 


THE  LAET  rtHN  WAS:  55 

THE  LAST  SEQUENCE  NUMBEh  WAS:  815 

Ci.P  STUjy  uO.  ?  (Ibj  1254S 

INITIAL  SEQUENCE  NUMLc,li  ?  Sii2 
MAXIMUM  SEQUENCE  NUMBER  ? 

WHaT  is  the  new  HUN  NUMbEK  ?  ^ 

HoW  lAANY  NEGATIVE  COIJTi-.uL  COMPOUNl/o  ?  (MAX.-L)J_ 
what  is  the  code  for  The  negative  CoUTHuL  Jf:  1  ?  (AN/fa) 

NEGONE 


HOW  IiANY  POSITIVE  CONTROL  COMPOUNDS  ?  (M«X.-L) 

MAXIMUM  SEQUENCE  NUMBER  FOh  POSITIVE  CONTuuLS  ?  ^ 

WHAT  IS  THE  CODE  FOR  THE  POSITIVE  CONTnUL  ff.  1  ?  (AU/d) 
POSUNE 


HOW  I'lANY  Ti:,ST  COMPOUNDS  ?  (HaX.-u)  2 

Mf.ki'  IS  THE  CODE  FOR  TEST  COMPOUND  if-.  1  ?  (A.j/6J 
T-ONE 

WHAT  IS  TrtE  REPETITION  NUMBEn  FOR  THIS  COMPOUND  ?  U2)^ 

WHAT  IS  THE  CODE  FOR  TEST  COMPOUND  if:  2  ?  UN/s) 

T-TWQ 

WHAT  IS  TilE  REPETITION  NUMBER  FUR  THIS  COMPOUND  ?  (12) 
.vaAT  iS  THE  R.-PETITlUN  NUMBER  FOR  THIS  OOMPuUnD  ?  (I2)  ^ 


Figure  1.  Sample  run  of  SLRLABELS.FR 
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INPUT  BKOOD  DATliJ 
UATU  KUH  BROOD:  1  ?  (XXMONXX) 

DATR  rOR  DROOL-:  P  V  (XXMOnXX) 
99Di:.C'r^U 

DA'iO-  d^.OOD:  5  ?  (XXMONXX ) 


9901.099 

DAThL  R)k  bKOOD:  4  ?  (XXHOi.XX) 


990UC99 


U,JT  FOR  OUTPUT 


HUN :  53 


LSROOD:  1 


..hijiLL.)  AND 

CARDt:  FOR 

Cl  -NsGORt: 

ARE 

IR 

’DLArELS’ 

AND 

'BCAnDS' 

,Ar.bl,;i  AiiD 

CARDS  FOR 

P1-P0S0NE 

ARE 

IN 

’DLABELS’ 

AND 

'BOARDS' 

/uO' 

CARDS  FOR 

T1-T-0NF 

ARE 

IN 

'DLABELS' 

AND 

' BOARDS ' 

i,AL>.0.,U  AnU 

CARDS  Fur 

T2-T-TW0 

ARE 

In 

'DLABELS' 

AND 

' BOARDS ' 

hriUOU:  P 

1  AUlT.i.,-  AiJD 

CARD.-'  FOR 

C 1  -'N  uGuiJ 

ARb 

IN 

' DLrtLELS ' 

ArD 

'BOARDS’ 

1;  ijL.j 

i.:ards  Fur 

P1 -PuSONE 

AkE 

IN 

'DLABELS' 

AND 

' BOARDS ' 

ijAi'Kljo  AXi' 

T1-T-0ijJ 

ARE 

IN 

*  n :  ' 

AilD 

' BOARDS ' 

..Arr,!.;;  AND 

card;;  for 

T2-T-TW0 

ARE 

IN 

'DLABELS' 

AND 

' BOARDS ’ 

chuuu:  5 

..‘wM'ii,::-  AND 

CARDS  Fur 

Cl  -NbOONb 

ARE 

IN 

'DbABELS' 

AND 

'BOARDS' 

A.jl) 

CARDS  FOR 

P1-P0S0NF 

ARE 

IN 

'DLABELS' 

AND 

'BOARDS' 

Figure  1.  Sample  run  of  SLRLABELS.FR 
(Continued) 
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LABELS 

AND 

CARDS 

FOR 

T1-T-ONE 

A«E 

IN 

' DLABELS ' 

Aiiv 

'  BCA:U'D 

LABELS 

AND 

CARDS 

FOR 

T2-T-TW0 

ARE 

IN 

'DLABELS' 

AND 

' BOARDS 

BROOD:  4 

LABELS 

AND 

CARDS 

i-'OR 

C)-NEGONE 

Aiifa 

IN 

' DLALLL.  ' 

A.., 

'  'v  ’  .  [V 

LABELS 

AND 

CARDS 

FOR 

P1-POSONE 

ARE 

IN 

’DLABELS’ 

AND 

' BOARDS 

LABELS 

AND 

CARDS 

FOR 

TI-T-ONi- 

Are 

IN 

’  DLAcEijS  ' 

Ai.D 

LABELS 

AND 

CARDS 

FOR 

T2-T-TW0 

ARE 

IN 

’ DLABELS ' 

AND 

*  LCAHDl'j 

ALL  LABLLS 

AND  CARDS 

ARE  READY 

IN 

■Di.a 

rCLS’  And 

’  bCA 

.  1  i-L* 

) 


Figure  1.  Sample  run  of  SLRLABELS.FR 
(Continued) 
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Gi.P  iSTUDY  ..o.  12^45 
RUN :  55 

01-61^  cR:  1 
COKPOUNi)  OUDR:  NEGuNii 
NOT to: 


r.:>  ...  I  . 

U1  -  -i.t 

CvD...:  „ 

RUN :  ^3 

ciiji)  L  Li  !‘l 

im'fCii  ;fl 

UA  r ...  j 

i 

.« i  L  [  ALi-< 

:•  V  1  _ 

ij  hi  i  H  A  ij*-.) 

NONLiiTHALo 

]•  5  On 02 2 

BATCii  jr : 

'J:x  i  n : 

1 

.4  IT'  I A L2 

r'AiUhiLC _ 

i,,tTliAL2 

HONLRTHAL'd 

Fii,uro  ?.  Sample  Negative  Control 
Ijbel  and  Card 
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GLP  STUDY  :J0.  12^4t) 

RUN :  3'^ 

P1-  810  BR:  1  99DEC9y 
COMPOUND  CODE:  POSONS 
NOTES: 


Out'  w'  i  !-■  L/ Y 

.*'J  •  t  w  ‘t 

CohP'./^' P'j* 

PI-  810 

LR:  1  99i'EC:'9  iiL’N :  33 

CrlOoS 

WEDIUH  BATCH  n : 

DATE: 

I.*  IT  I 

EAiLUHES 

LETHALS  NONLETHALS 

F3  CROSS 

HEDIUM  BATCH  ff: 

DATE: 

I  i4  I  i*  L  ii  > 

failures 

LETHALS  NON LETHALS 

LUTES: 
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GLP  STUDY  WO-  12345 
RUN:  33  REP.  ff:  2 

Tl-  810  an:  1  99DEC99 

COMPOUND  CODE;  T-ONE 
NOTES: 


c:,r  ,  ,.Y  , 

olv.  ; 

•  .  .>-t  ...  L  •  ;/  i  2 

ii  .. T~0Nij 

'  99i-v99  RDR:  35 

/2  UnO.  J 

: 'ji'i  iiiT  Jii  // : 

i^/\  1  .  : 

IN  iTI AL3 

-■  A  !  i-uar-o 

LbVunLo  NONL^Ii’H/iL^ 

;•  ^  iJ.iOSo 

)  A  V  : 

INITIALS 

r  n  I  LjU  K  :’j»  - 

LETuALS  NUnijETtiALS 

■ 

Figure  A.  Sample  Test  Compound 
Label  and  Card 
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GLP  STUDY  NO.  12345 
RUN:  33  REP.  it'.  45 

T2-  810  DR:  1  99DEC99 

COMPOUND  CODE:  T-TWO 
NOTES: 


GLP  STUDY  ::g. 

T2-  810  BR: 

12345  RLP.  rf:  45 

COMPOUND  CODE:  T-TWO 

1  99DEC99  RUN : 

33 

i’2  CROSS 

HEDIUii  B/.TCH  if. 

DATE: 

INITIALS 

PAILURES  _ 

_  LETHAL3  NOHLETHALS 

F3  CROSS 

MEDIUM  BATCH  If. 

DATE: 

INITIALS 

FAILURES 

LETHALS  NONLETHALL 

" 

NOTES 
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Appendix  A 
Appendix  B 
Appendix  C. 


Listing  for  SLRLABELS.FR  .  14 

Listing  for  Subroutine  NBLABELS.FR  .  19 

Listing  for  Subroutine  NTBLABELS.FR .  21 
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APPENDIX  A 


SIjkLABELIs .  Ffi 


— Hi'.Ou ii Ai'i  ^LKLABELb •  FE 

,  - -Y ;  ViAur.niii  W.  .JtluEubEKG 

- olU  uOU'i'iBi:’.;,') :  NbLAliELS.  FR»  NTBLABELS.FR 

.  ---  li.l  'A;  AT  Til-li:!.  OF  EXE^^U’TION: 

---  iiAEOE  UF  LAbELO,  RUN  NUMBER,  BROOD  DATES 

' -  CAMPUUiii;  CUDw,  CChPUURD  NliMBEttS 

P - FUIA'IAT  FOR  INPUT:  CRT  OR  DASHER 

- h'  .'i\Pi  .  .j."  TO  GERluATe  labels  AND  CARLS  FOR  THE 

J  ---  SEX-LiNKED  RECESSIVE  LETHAL  DROSOPHILA  ASSAY. 

>:  — -  TiilS  PRoGR/vm  and  SUBitOuTINES  GENERATE  THE  LABELS  FOR 

('  ---  THE  NEGATIVE  CONTROL  COMPOUND(Sj,  THE  POSITIVE  CONTROL 

. ■ -  CdMPoUNDIo  j  ,  Ai'.D  TriE  TEST  COFiPOURD(s)  IN  ORDER  OF  BJiUOD. 

C  ---  A  WAXIMUH  SEQUENCE  OF  100  IS  ALLOWED  AND  UP  TO  5  OF  EACH 

r  —  CoKPoCiiL.  THE  LABELS  ARE  STORED  IN  'DLABELS'. 

.  — -  THE  SUBi.OL.TlNES  Nr>LHbELS.FR  AND  NTBLABELS.FR  ARE  USED. 

U.TECr.H  CCOM,  PUR,  PCOW,  TCUM,  IR,  UR,  B,  TL ,  IDATE 
.irtf.NSloN  CCOi'HC.b),  PC0w(,6,'?),  TC0M(6,^>),  IDATE(7 ,4)  ,NREPttj ) 

TYPl 

.  ’i  t"';  "  .A.rii.-LrtO.jOPh  L  Lh  LAh;:iLS  ......." 

TYPE 

■  •  sEQi  ENCE  NUMBERS 

OPEN  S,  "LDLABEL",  ATT=‘'SIii'' 

-1 .  Ji D ( T  ,  1  )  N ,  dL 
/ORWAT  l,C(1X,I4l) 
mil  /  (  U) ,  2  j  H.v ,  LL 

X,’'TiiE  LAST  RUN  WAS:  " ,  1 X ,  14  , / , 

1  ’  Y.  ,  Tiiii  liAv;  i'  ..'I'.Qu ERl  NUMobi-v  Who:  "  ,  IX  ,  14) 

2 


***  C.  ,  .he  G.,P  STU..Y  NoM,..i,u 
iUO  CoNViNUE 
1  Y  1.'  E 

Ao'i.'hPT  "  GLP  STUDY  Nu.  ?  Ub)  ",GSN 
lY  l,GSiJ.GT.090‘B:»;  GO  TO  100 


*■**  li.t'iji’  .*11,1''  The  SbQLicmviE  RANGE 

/OO  (A-:J','li)UE 
TYPE 
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APPENDIX  A 
(CONTINUED) 


ACCEPT  "  IiUTiAL  SEQUENCE  NUWbEU  ?  " ,  IK 
ACCEPT  "  MAXIMUM  SEQUENCE  NUHBEu  ?  ",UR 
C  —  CHECK  RANGE 
TL  =  CR-IR 

IE  (TL.LE.10U)  go  TO  ’500 
TYPE 

TYPE  "  ++  +  +  +++  +  +  +  ErtHUti  +  +  + +  +  +  +  +  +  +  " 

TYPE  "  i-iAXIMUH  -  INITIAL  >  100" 

GO  'iO  700 
300  CONTINUE 
C - 

C  ***  INPUT  NEW  hUN  NUMonR 
TYPE 

ACCEPT  "  WHAT  IS  THE  NEW  RUN  NUAu.l..  ?  ",NR 
TYPE 


C  ***  INPUT  COMPOUND  CODES 
C  —  NEGATIVE  CONTROL  COMPOUND(s) 

400  CONTINUE 

ACCEPT  "  HOW  Many  NEGATIVE  CONThOL  COMPOUNDS  ?  (MAX. -3)  ",NNC 

IE  (NNC.GT.3)  GO  TO  400 

TYPE 

DO  90  1=1, NNC 
write  (10,3)  I 

3  FORMAT  (IX, "WHAT  IS  THE  CODE  FOR  THE  NEGATIVE  CONTROL  #:",1X,I1,U, 
1"?  (AN/6)") 

READ  (11,4)  (CCOI>i(K,l)  K=1,6) 

4  FORMAT  (6A1) 

90  CONTINUE 

TYPE 

TYPE 

C  — -  POSITIVE  CONTROL  COMPOUND(S) 

300  CONTINUE 

ACCEPT  "  HoW  MilNY  POSITIVE  CONThOL  COMPOUNDS  ?  (MAX.-u)  ",Nt’C 
ii''(NPC.GT.3)  GO  TO  300 

L  ***  GET  ..UMHEri  EOa  POSiTiVE  COiTTKuL  SEQUENCE 
900  CONTINUE 

nCCEPT  "  MnXIMCM  SEQulNCE  NUMu)L.,  FlK  PuSi'i'iVE  CONTROLS  ?  ",PiJii 
PTL  =  PUR  -  IR 
IF  (PTL.Le.10U)  go  To  800 
TYPE 

TYPE  ”  +++  +  +  +  +  +  +  +  EhKUA+  +  +  »^  +  +  *^  +  +  " 

TYPE  "  MAXIMUM  -  INITIAL  >  100" 

GO  To  900 
BOO  CONTINUE 
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APPENDIX  A 
(CONTINUED) 


TYI'K 
liij  A) 

WhlTl'l  (lU/;)  1 

i-'OKKAT  (1X,’‘k<HAT  13  THE  CODE  FOK  THE  POSITIVE  CONTROL  #:",1X,I1,1X 
]"?  (AN/b)") 

REAL  (11,4)  (PCOM(K,I)  K=1 ,6) 

Lo  OOITi'iNUE 
i’YPE 
TYPE 

C - TbSi’  EuMPOUHL(s) 

oOU  CONTINUE 

ACCEPT  "  HOW  .-luiiY  TEST  CUMPuUnDS  ?  (MAX.-^))  ”,NTC 
J  »•  (NTC.OT.^?;  GO  TO  600 
NO  ^0  i=1,NTC 
TYPE 

(10,6J  1 

0  EO'uaAT'dX/'WEKT  IS  THE  CUOr,  FOR  TEST  COMPOUND  ,  1  X ,  II  ,  1  X  , 

1"?  (AN/bj") 

REAi>  (11,4)  ('rtOM(K,i)  K  =  1,6) 

- Oa'i  TiiE  KcjPEiTTION  NUMLci.v 

loj)  CONTINUE 

,v:CEPT  "  WHhT  Is  ThE  REPETITION  NUMBER  FOR  THIS  COMPOUNT  ?  (12)  ", 
lNi;EP(i) 

IF  (NiiEPlO.CT.yy)  00  to  123 

jO  Continue 
TYPE 
TYPE 

C  TnPuT  DiiOOJ  T'ATuS 

TYPii 
TYPE 

'TYPE  "  INPUT  Brood  dates" 

DO  40  li  =1  ,4 
W.aiT',  (10,7)  B 

7  (OahfiT  (IX, "DATS  FOR  BROOD:  ",  1  X  ,  II  ,  1 X  ,  "?  (XXMONXX)") 

KEaD  (M,8)  (I date  (K,e)  K=1,7) 

0  i''Oivl'iA'T  (7A1  ) 

40  CONTINUE 

C  ***  MESSAOE 
TYl'r, 

lYPE  "  Wait  FOr  OUTPuT . " 
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APPENDIX  A 
(CONTINUED) 

***  iViKE  iirtLit.Uo  FO:-.  EACh  BROOD 
— -  OPEN  FILE  'DLABELS' 

Oi^LilI  F  DLAFlji-iCi) 

>;PEN  1,  "DLABELO",  ATT  =  "LOP" 
jELLTE  "BCAivDO" 

OPEN  "BCAHDO",  ATT  =  "SOP" 


0  ***  OOTPPi  RUN  NUHr.Kl-; 

WKl'iV.  (10,9)  nr 

0  I'OkKAT  (/,10X,"RUN:",tA,r4,// ) 

0  ***  LaRELo  I'lADE  BY  liROOD 
DO  90  r.  =  1  ,4 
WRi'i'E  (K',10; 

10  FGuMAT  (/ ,  lOX,"i>R00D:’',1X,l!  ) 

^  —  —  —  .  D  ,(j  A  .  i  V  I'j  Coi*  i  iv  ’  .j  LA  .^'Li  iji  ■ 

K  =  "O" 

DO  rO  =  1,N..0 

'.vni.i,  !<bLA!*t.O.'  vGSi» ,  Nr,  ,  K  ,  1  , 1  ,  uR ,  0  .  .'.(I  ,  I )  ,  .  ,  [ .xVV'.a  1  , .  i ) 

.a;  OlmN  I'iiil'E 

- F'jOlTlVE  Cu.j.'aaD  LArrLo 

K  =  "P" 

Lu  70  I  =  l,IiPC 

DaLi^  NBLABeij.'  I  GEi» ,  Nr  ,  K  ,  I ,  I.. ,  Po  ,  PO'.Ji'i  (  1  f  .'A'i’tll  ,i')j 

7u  CONTINUE 

C  --- 

L  ---  TOjoj.  tyUMP\‘,DNO  LABErS 
K  =  "T" 

Do  SO  1  =  1  ,NTO 

CArlj  NTrLAi .EL: '  ((loN  ,  NU  ,  NiiBP(  1 ) ,  K  ,  I ,  lu  ,  Uu  ,  TOU('l(  1  , 1 ) ,  B ,  1 1, ATti (1  ,hjj 
bO  CONTINUE 

TYPr 

DO  CONTINUE 

CBOOK  1 
CLcEE  3 

0  ***  END  i-iESSAUr 
TYPE 

TYPE  "  ALl,  LABEi,o  AND  CAHir.  ARE  HLAuY  IN  'DLABELS'  AND  'BCAh!/:', 
TYPE 


END 
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APPENDIX  B 


NBLAbELJ.FR 


C 

C 

n 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  NAME:  NBLABEL3.FK 

WKiTTEi.  n't:  W.-iHatili  JEOERBEBO ,  CUTANEOUS 

SUBROUTINES;  NONE 

INPUT:  GSN  ,Ni\  ,K ,  P ,  Li  ,1!,  LCOi'l,  N ,  1*  aTsi 

GSN  =  GLP  STUDY  NUMBER 
Nil  =  Run  NuiltiEa 
K  =  "C",  "P", 

L  =  INlTIhL  value, 

M  =  MAXIMUM  VALUE 
LCoH  =  COMPOUND  CODr, 

N  =  BROOD  yiif 
P  =  SUBGROUP 

IDaTE  =  PROPER  DATE  PER  BROOD 
FORMAT  FOR  INPUT:  SEE  SLKaAbELS.PR 


C - PURPOSE:  GENEnATES  LAueLS  AND  CARDS  FOR  THE  KuGATIVE  AliD 

C  —  POSITIVE  CONTROLS  FOR  THE  SLRL  DROSOPHILA  ASSAY.  SUPPORTS  THE 
C - [MAIN  PROGHfti'i  SLrLadELS.FR  ALONG  WITH  NTBLABELS .  PR . 

0 - 

SUBROUTINE  NBLAcELS  (GSN  , Nr.  ,K , P,  L.w ,  LCoM,  N ,  IhATe) 

INTEGER  I,P 

DIMENSION  1dATE(7),  LCoM(6) 

DO  10  I=L,M 

WRITE  (1,5)  GSN  ,Nu,K,P,I,N,IbAT’Ei,LCuH 


5  FORMAT  (lX,"GiiP  STUr/Y  N0.",U,I5,/, 

1 IX, "RUN:", IX, 14,/, IX, A1 ,11 , , 14 ,2X , "BR ; " , 
21X,11 ,2X,7A1 ,/, 

21 X ,  "COMPOUND  CODE:  " , 2X , 6A1  , / ,  1 A ,  "NOTriS 
C  —  PREPARE  CORRESPONDING  CARD 

Write  (5,7)  GSN,LCOh,K,P,I,N,IiiATE,Nii 


7 


FORMAT  (1X,''GdP  SVUeY  NO  . ”  ,  1 X ,  15 , /  , 

1 IbX, "COMPOUND  C0DE:”,2X,6a1 ,/, 

22X,,i1  ,11  ,"-'',i4,2X,"Bj(:",lX,I1  ,2X,7A1  ,1 1X,"RUW: 


',1X,I4,//, 


52X," - ",/, 

42X,"F2  CROSS  MEDIUM  BATCH  ffi  _ ",/, 

52X,"DATe:  _  INITIALS  _ ",//, 

62X,"FAinUfiES  _  LETHALS  _  NONLETHALS  _ ",/, 

V2X,"— - - ",/, 

b2X,”F3  CROSS  MEDIUM  BATCH  ff:  _ ",/, 

y2X,"DATE;  _  INITIALS  _ ",//, 

12X, "FAILURES  _  LETHALS  _  NONLETHALS  _  ",/, 

22X," - - - 


I'  fflBCl&lMO  PA(M  BSUMH-^Kn  WHIKD 
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APPENDIX  B 
(CONTINUED) 

:  " ,// ) 

iiVoul'i  i.A:;T  ob'Q.U'ilit'i'.  tf  iiJ  LDLAIiKL 
Li.  =  1-1 

uI’E;,  ''L.iLAiii:L",  ATT  =  "Su" 

WHIT:'.  NujLL 

KUhi<iAT  (2 (IX,  14)) 

CUJyE  2 
-  uoLH  NOTE 

WHITI:.  (10,6)  K,P,LC0M 

I'wui'.Ai  W  ,1X,  LABEl.O  and  CAui/O  FOK  ,1X,A1  ,11  , 
16Al,lX,"AHE  Iw  'DLABELo'  AND  ’ BOARDS' ") 
i-.lTUHN 
END 


APPENDIX  C 


NTBLABELS.EK 


SUBROUTINE  NAME:  NTk'., ABELS .  i<  n 

WRITTEN  BY:  WAh';\;i,ri  .JEl>EKl-hhU ,  CU'inNEuiiE  hALARi-U 

SUbKuUTINES:  NONE 

IrPU  I  :  OSL  ,N., ,  N..ht ,  K  ,  P ,  L , ,  LUv/M ,  N  ,  I  /-.'i  r. 

GSN  =  CLP  STUDY  LUMbEH 
Nil  =  Ri,  .-  NUMr  .'  .. 

NREP  =  REPETITION  NUMhEi. 


U  — -  K=  “T" 

U  — -  L  =  INITIAL  VALUE 

C -  M  =  hiiXIMUM  VALi. 

’ -  LCO.I  -  CuEPOUiVD  OGLE 

0 -  N  =  Biu  ./iJ  if 

:  —  p  =  suughoup 

-  luA.z.  -  PliEr'r.r.  DA'-:.  Pi.ii  Bn'i'yO 

U - EOKEAT  rCK  iNtUT:  SEE  SLRLADc,i,.'.  Fii 


U - PURPOSE:  SU'BiiOu -'INii  Tu  GL^.•-.^^iTE  LAliL.S  A:<o  I'diO,.  pi- 

>J - TEST  UOi'lPOUNi.'o  USED  IN  Tl'E  SLn'L  iUiGSOPli I  LA  hSoAY  .  iTipPOiUi'.. 

- Ph'  iGP.ni'i  SLRLA;'.:-.i.S.  t  ;i  ALONG  Wl'i  ii  N ILAb.  .L.. .  1' li . 

SU  liiiO'JT  i  .N E  ii  i  L  i.ivai’jL-)  (,iiS)»  ♦  N.i ,  N,.  .iP ,  K  ,  P  ,  L  * ,  LO’O . . »  N  »  i .  A'.  J 
INTEGER  1,P 


:i  I W 

r<L'«L)I0N  li.- 

A.’ 

.rn, 

,  LCOm(,-,> 

■.;0 

10  I=L,K 

.'.ril 

TE  (1 ,3) 

uC 

N  ,  Nr  , 

,  Nlir.P.K  ,  P  , 

i  ,  N  ,  I .  n\ 

,  LEui'i 

FOR 

k.aT  (IX,  ■' 

Gli 

r  ST'l 

.ill  N,.",l 

A,  lb,  / . 

11X, 

"run : ",  I  A 

4,3X, 

,  ".RE‘.  If." 

1  X ,  A  t  ,  1  I  , 

-  IX, 

11  , Pa , /n 1 

,/ 

r 

Six, 

COMPbU.'iD 

t 

Dij:  * 

'.Pa.oAI ,/ 

,1a,"  No  I  f, 

—  Prepare  corresponding  card 

rtii ITE  V 3  1 7  GS.. ,  Ni.i.P ,  .00 ti ,  K  .  I  ,  I ,  N  ,  L . '  A  i'ii ,  N:. 


j  oREAT  (,1X,"G1,P  oTUL'Y  No  .  "  ,  1  a  ,  i  R  ,4X  ,  "hL-r .  7:",Ia 
1 ) bX , ” : JePODNL  code : " , P X , EA l , / , 

PPX.hI  ,  il  ,"-",]4,2X,"B:.:  11  ,X.a,7A1  , 1  U,"RuN;  " 

jPX," - " 

4sX  , '  P2  C-iOSS  Mr-j  Li.i-1  dAI  .li  _ " 

RPX,  DATE: _  1  1 1 i  A  u..-  _ 

ciSX,  iAIijUln-S  _  LeTii/i:.; _ NoN-.-TilALS _ ’’ 

VEX," - " 


,/  /  , 


bPX,"F3  CRuS.;; 


Mm.  lUM  bATiOi  ff: 


li  i'.'ir, 

'i'HE 

I 


i 


21 


APPENDIX  C 
(CONTINUED) 


'.-•.'X,  UhI'i.:  _  INITIALS  _ 

1  <‘X  ,  Kn  1  IjU K 1 IV,'  LLi'riAjjvj  _  NONijETiiALo 

'''I'X,  - 

j.JX  ,  fsUTrX): '  ,  /  /  ) 

U)  (.XjNriNUE 

--  vi'i'uiwj  iiAoT  orjQUiinLE  if  iid  "LDLAbEL" 

L,li  =  1-1 

i.rbiJ  "Lv.'LiAuf.L",  ATT  =  "SO" 

WliLl'.i  1JK,LL 

FOiiXAT  (2 (IX,  14)) 

2LU2E  2 


//, 

/, 

/. 


- lJUl  I'* 

ivtil  ii:,  \\0,b)  K,P,LCOM 

o  iH.ihriH  i'  (,/ ,  1  X  ,  "LAi^hLJ  AiJlJ  CAbj-'C  PuA "  ,  1 X  ,  A1  , 1 1  ,  , 

lb,J  ,1X,"Atul  In  'DLAbKLS'  AND  'DCAilDU'") 


22 


END 


DATE 
FILMED 


m 


DTIC 


